Imports System.Data.SqlClient
Imports System.Xml
Public Class dMenu
    Public Function ObtieneMenu() As DataSet
        Return dConexion.Consultar("ObtenerOpcionesMenu", New ArrayList)
    End Function
    Public Function Buscar(ByVal idgrupo As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pEUsuarioCreacion", idgrupo))
        Return dConexion.Consultar("ObtenerOpcionesMenUno", Parametros)
    End Function

End Class
